/ BBS in a Box 5 / BBS in a Box -Volume V (BBS in a Box) (April 1992).iso / Files / Prog / M / LinkedList.cpt / Linked list / Linked_List.LSP

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 92 2b 00 01 50 7b 20 45 | 78 61 6d 70 6c 65 20 70 |.+..P{ E|xample p|
|00000010| 72 6f 67 72 61 6d 20 6f | 6e 20 4c 69 6e 6b 65 64 |rogram o|n Linked|
|00000020| 20 4c 69 73 74 27 73 2c | 20 42 65 20 73 75 72 65 | List's,| Be sure|
|00000030| 20 74 6f 20 72 65 61 64 | 20 74 68 65 20 49 6e 73 | to read| the Ins|
|00000040| 74 72 75 63 74 69 6f 6e | 20 66 69 6c 65 20 66 69 |truction| file fi|
|00000050| 72 73 74 21 7d 08 92 0e | 00 01 17 7b 20 42 79 3a |rst!}...|...{ By:|
|00000060| 20 52 75 73 73 65 6c 6c | 20 4c 2e 20 4e 61 62 65 | Russell| L. Nabe|
|00000070| 72 7d 92 0b 00 01 10 7b | 47 45 4e 49 45 3a 20 52 |r}.....{|GENIE: R|
|00000080| 2e 4e 41 42 45 52 7d 08 | 94 01 92 27 00 01 48 7b |.NABER}.|...'..H{|
|00000090| 44 69 73 74 72 69 62 75 | 74 69 6f 6e 20 3a 20 53 |Distribu|tion : S|
|000000a0| 68 61 72 65 77 61 72 65 | 20 70 6c 65 61 73 65 20 |hareware| please |
|000000b0| 64 69 73 74 72 69 62 75 | 74 65 20 69 6e 20 77 68 |distribu|te in wh|
|000000c0| 6f 6c 65 20 61 6c 6c 20 | 72 65 6c 61 74 65 64 20 |ole all |related |
|000000d0| 66 69 6c 65 73 20 7d 08 | 92 27 00 01 49 09 09 7b |files }.|.'..I..{|
|000000e0| 69 6e 63 6c 75 64 69 6e | 67 20 74 68 69 73 20 69 |includin|g this i|
|000000f0| 6e 73 74 72 75 63 74 69 | 6f 6e 20 66 69 6c 65 20 |nstructi|on file |
|00000100| 2e 49 66 20 79 6f 75 20 | 66 65 65 6c 20 74 68 69 |.If you |feel thi|
|00000110| 73 20 65 78 61 6d 70 6c | 65 20 50 72 6f 67 72 61 |s exampl|e Progra|
|00000120| 6d 20 68 61 73 7d 92 25 | 00 01 45 09 09 7b 68 65 |m has}.%|..E..{he|
|00000130| 6c 70 65 64 20 79 6f 75 | 2c 20 66 65 65 6c 20 66 |lped you|, feel f|
|00000140| 72 65 65 20 74 6f 20 63 | 6f 6e 74 72 69 62 75 74 |ree to c|ontribut|
|00000150| 65 20 77 68 61 74 20 79 | 6f 75 20 74 68 69 6e 6b |e what y|ou think|
|00000160| 20 69 74 20 69 73 20 77 | 6f 72 74 68 20 74 6f 7d | it is w|orth to}|
|00000170| 92 10 00 01 1b 09 09 7b | 79 6f 75 20 74 6f 20 74 |.......{|you to t|
|00000180| 68 65 20 66 6f 6c 6c 6f | 77 69 6e 67 20 3a 20 7d |he follo|wing : }|
|00000190| 94 01 92 0d 00 01 15 09 | 09 7b 52 75 73 73 65 6c |........|.{Russel|
|000001a0| 6c 20 4c 20 2e 20 4e 61 | 62 65 72 7d 92 0e 00 01 |l L . Na|ber}....|
|000001b0| 17 09 09 7b 36 38 30 31 | 20 53 2e 52 6f 62 69 6e |...{6801| S.Robin|
|000001c0| 20 44 72 69 76 65 20 7d | 92 0f 00 01 19 09 09 7b | Drive }|.......{|
|000001d0| 47 69 6c 6c 65 74 74 65 | 20 2c 20 57 59 20 2e 20 |Gillette| , WY . |
|000001e0| 38 32 37 31 36 7d 94 01 | ae 0c 00 00 00 00 10 4c |82716}..|.......L|
|000001f0| 6f 61 64 5f 4c 69 6e 6b | 65 64 5f 4c 69 73 74 08 |oad_Link|ed_List.|
|00000200| 98 01 94 01 94 01 a4 01 | 94 01 cc 05 07 4e 6f 64 |........|.....Nod|
|00000210| 65 50 74 72 6a 04 04 4e | 6f 64 65 08 98 01 92 0d |ePtrj..N|ode.....|
|00000220| 00 00 14 09 09 09 7b 50 | 6f 69 6e 74 65 72 20 74 |......{P|ointer t|
|00000230| 6f 20 4e 6f 64 65 7d 08 | cc 05 07 4e 6f 64 65 48 |o Node}.|...NodeH|
|00000240| 64 6c 6a 05 07 4e 6f 64 | 65 50 74 72 98 01 92 0d |dlj..Nod|ePtr....|
|00000250| 00 00 15 09 09 7b 48 61 | 6e 64 6c 65 20 74 6f 20 |.....{Ha|ndle to |
|00000260| 50 6f 69 6e 74 65 72 7d | 94 01 cc 04 04 4e 6f 64 |Pointer}|.....Nod|
|00000270| 65 08 6c 01 7e 06 08 53 | 74 72 67 44 61 74 61 08 |e.l.~..S|trgData.|
|00000280| a6 01 70 03 03 00 00 09 | 98 01 92 1d 00 00 34 09 |..p.....|......4.|
|00000290| 7b 46 6f 72 20 73 74 72 | 69 6e 67 20 6c 65 6e 67 |{For str|ing leng|
|000002a0| 74 68 20 6f 66 20 39 2c | 20 63 68 61 6e 67 65 20 |th of 9,| change |
|000002b0| 66 6f 72 20 6c 6f 6e 67 | 65 72 20 73 74 72 69 6e |for long|er strin|
|000002c0| 67 73 7d 08 7e 07 0b 4c | 6f 6e 74 49 6e 74 44 61 |gs}.~..L|ontIntDa|
|000002d0| 74 61 a6 01 7e 05 07 4c | 6f 6e 67 49 6e 74 98 01 |ta..~..L|ongInt..|
|000002e0| 92 0e 00 00 16 09 09 7b | 46 6f 72 20 4c 6f 6e 67 |.......{|For Long|
|000002f0| 20 49 6e 74 65 67 65 72 | 27 73 7d 08 7e 04 04 4e | Integer|'s}.~..N|
|00000300| 65 78 74 08 a6 01 7e 05 | 07 4e 6f 64 65 48 64 6c |ext...~.|.NodeHdl|
|00000310| 98 01 92 13 00 00 20 09 | 09 7b 50 6f 69 6e 74 65 |...... .|.{Pointe|
|00000320| 72 20 74 6f 20 4e 65 78 | 74 20 6c 69 6e 6b 20 69 |r to Nex|t link i|
|00000330| 6e 20 6c 69 73 74 7d 08 | 9a 01 98 01 94 01 94 01 |n list}.|........|
|00000340| ba 01 7e 05 06 48 65 61 | 64 65 72 08 a6 01 7e 05 |..~..Hea|der...~.|
|00000350| 07 4e 6f 64 65 48 64 6c | 98 01 92 0e 00 00 16 09 |.NodeHdl|........|
|00000360| 09 09 09 09 7b 48 65 61 | 64 65 72 20 56 61 72 69 |....{Hea|der Vari|
|00000370| 61 62 6c 65 7d 08 7e 05 | 07 54 68 65 4e 6f 64 65 |able}.~.|.TheNode|
|00000380| a6 01 7e 05 07 4e 6f 64 | 65 48 64 6c 98 01 92 0e |..~..Nod|eHdl....|
|00000390| 00 00 16 09 09 09 09 7b | 54 68 65 4e 6f 64 65 20 |.......{|TheNode |
|000003a0| 76 61 72 69 61 62 6c 65 | 7d 08 94 01 94 01 92 11 |variable|}.......|
|000003b0| 00 01 1c 7b 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |...{----|--------|
|000003c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 7d 08 |--------|------}.|
|000003d0| 94 01 94 01 b0 0a 00 00 | 02 ea 0c 43 72 65 61 74 |........|...Creat|
|000003e0| 65 48 65 61 64 65 72 08 | 98 01 92 0d 00 00 15 09 |eHeader.|........|
|000003f0| 09 09 7b 43 72 65 61 74 | 20 66 69 72 73 74 20 4e |..{Creat| first N|
|00000400| 6f 64 65 7d 94 01 80 05 | 00 00 04 12 00 00 05 12 |ode}....|........|
|00000410| 78 1a 5c 06 48 65 61 64 | 65 72 0a 5c 07 4e 6f 64 |x.\.Head|er.\.Nod|
|00000420| 65 48 64 6c 10 5c 09 4e | 65 77 48 61 6e 64 6c 65 |eHdl.\.N|ewHandle|
|00000430| 10 5c 06 73 69 7a 65 6f | 66 10 5c 04 6e 6f 64 65 |.\.sizeo|f.\.node|
|00000440| 16 16 16 08 98 01 92 1b | 00 00 30 20 20 20 7b 49 |........|..0   {I|
|00000450| 6e 69 74 61 6c 69 7a 65 | 20 66 69 72 73 74 20 6e |nitalize| first n|
|00000460| 6f 64 65 2c 20 74 79 70 | 65 63 61 73 74 20 69 6e |ode, typ|ecast in|
|00000470| 74 6f 20 4e 6f 64 65 48 | 64 6c 7d 08 90 06 5c 06 |to NodeH|dl}...\.|
|00000480| 48 65 61 64 65 72 54 54 | 80 05 00 00 00 00 00 00 |HeaderTT|........|
|00000490| 05 0e 78 08 5c 08 53 74 | 72 67 44 61 74 61 0a 5a |..x.\.St|rgData.Z|
|000004a0| 05 00 98 01 92 13 00 00 | 20 09 09 09 09 7b 41 73 |........| ....{As|
|000004b0| 73 69 67 6e 20 69 6e 69 | 74 69 61 6c 20 64 61 74 |sign ini|tial dat|
|000004c0| 61 20 76 61 6c 75 65 73 | 7d 08 78 0a 5c 0b 4c 6f |a values|}.x.\.Lo|
|000004d0| 6e 74 49 6e 74 44 61 74 | 61 0a 5a 03 00 00 98 01 |ntIntDat|a.Z.....|
|000004e0| 78 09 5c 04 4e 65 78 74 | 0a 5c 06 48 65 61 64 65 |x.\.Next|.\.Heade|
|000004f0| 72 08 98 01 92 18 00 00 | 2b 09 09 09 09 7b 50 6f |r.......|+....{Po|
|00000500| 69 6e 74 65 72 20 74 6f | 20 66 69 72 73 74 20 61 |inter to| first a|
|00000510| 6e 64 20 6f 6e 6c 79 20 | 6e 6f 64 65 20 73 6f 20 |nd only |node so |
|00000520| 66 61 72 7d 9a 01 98 01 | 9a 01 98 01 94 01 b0 09 |far}....|........|
|00000530| 00 00 05 72 0b 43 72 65 | 61 74 65 4e 6f 64 65 73 |...r.Cre|ateNodes|
|00000540| 98 01 92 1a 00 00 2f 09 | 09 09 7b 6c 6f 61 64 20 |....../.|..{load |
|00000550| 75 70 20 74 65 78 74 20 | 66 69 6c 65 20 69 6e 74 |up text |file int|
|00000560| 6f 20 6e 6f 64 65 20 64 | 61 74 61 20 73 74 72 75 |o node d|ata stru|
|00000570| 63 74 75 72 65 7d 94 01 | ba 01 7e 09 0e 4d 65 6d |cture}..|..~..Mem|
|00000580| 48 61 64 50 72 6f 62 6c | 65 6d 73 08 a6 01 7e 05 |HadProbl|ems...~.|
|00000590| 07 42 6f 6f 6c 65 61 6e | 98 01 7e 06 09 4d 65 6d |.Boolean|..~..Mem|
|000005a0| 6f 72 79 45 72 72 a6 01 | 7e 05 07 49 6e 74 65 67 |oryErr..|~..Integ|
|000005b0| 65 72 98 01 7e 05 06 42 | 75 66 66 65 72 08 7c 01 |er..~..B|uffer.|.|
|000005c0| 7e 04 05 61 62 79 74 65 | a6 01 7e 03 03 50 74 72 |~..abyte|..~..Ptr|
|000005d0| 98 01 7e 06 09 52 65 61 | 64 43 6f 75 6e 74 a6 01 |..~..Rea|dCount..|
|000005e0| 7e 05 07 4c 6f 6e 67 69 | 6e 74 98 01 7e 05 06 72 |~..Longi|nt..~..r|
|000005f0| 65 66 4e 75 6d 08 7c 01 | 7e 05 07 65 72 72 43 6f |efNum.|.|~..errCo|
|00000600| 64 65 a6 01 7e 05 07 49 | 6e 74 65 67 65 72 98 01 |de..~..I|nteger..|
|00000610| 7e 05 07 4d 61 72 6b 50 | 6f 73 7c 01 7e 03 03 45 |~..MarkP|os|.~..E|
|00000620| 4f 46 a6 01 7e 05 07 4c | 6f 6e 67 69 6e 74 98 01 |OF..~..L|ongint..|
|00000630| 7e 06 08 74 65 6d 70 73 | 74 72 31 08 7c 01 7e 06 |~..temps|tr1.|.~.|
|00000640| 08 74 65 6d 70 73 74 72 | 32 08 a6 01 7e 05 06 53 |.tempstr|2...~..S|
|00000650| 74 72 32 35 35 08 98 01 | 7e 05 07 52 65 73 75 6c |tr255...|~..Resul|
|00000660| 74 31 7c 01 7e 07 0a 4d | 65 6d 6f 72 79 4c 65 66 |t1|.~..M|emoryLef|
|00000670| 74 08 7c 01 7e 05 07 45 | 6e 64 6c 6f 6f 70 a6 01 |t.|.~..E|ndloop..|
|00000680| 7e 05 07 4c 6f 6e 67 49 | 6e 74 98 01 94 01 80 05 |~..LongI|nt......|
|00000690| 00 00 11 06 00 00 11 c6 | 92 0a 00 00 0e 09 7b 63 |........|......{c|
|000006a0| 72 65 61 74 65 4e 6f 64 | 65 73 7d 08 94 01 78 10 |reateNod|es}...x.|
|000006b0| 5c 07 45 72 72 43 6f 64 | 65 0a 5c 06 47 65 74 56 |\.ErrCod|e.\.GetV|
|000006c0| 6f 6c 10 58 12 5c 06 52 | 65 66 4e 75 6d 16 98 01 |ol.X.\.R|efNum...|
|000006d0| 78 19 5c 07 65 72 72 43 | 6f 64 65 0a 5c 06 46 53 |x.\.errC|ode.\.FS|
|000006e0| 4f 70 65 6e 10 5a 05 0b | 4c 69 6e 6b 65 64 2e 44 |Open.Z..|Linked.D|
|000006f0| 61 74 61 12 5a 03 00 00 | 12 5c 06 52 65 66 4e 75 |ata.Z...|.\.RefNu|
|00000700| 6d 16 98 01 92 0e 00 00 | 16 09 09 7b 4f 70 65 6e |m.......|...{Open|
|00000710| 20 64 61 74 61 62 61 73 | 65 20 66 69 6c 65 7d 08 | databas|e file}.|
|00000720| 78 1a 5c 07 65 72 72 43 | 6f 64 65 0a 5c 07 53 65 |x.\.errC|ode.\.Se|
|00000730| 74 46 50 6f 73 10 5c 06 | 72 65 66 4e 75 6d 12 5c |tFPos.\.|refNum.\|
|00000740| 0b 46 53 46 72 6f 6d 53 | 74 61 72 74 12 08 5a 03 |.FSFromS|tart..Z.|
|00000750| 00 00 16 08 98 01 92 12 | 00 00 1f 09 09 7b 73 65 |........|.....{se|
|00000760| 74 20 6d 61 72 6b 20 74 | 6f 20 66 69 72 73 74 20 |t mark t|o first |
|00000770| 63 68 61 72 61 63 74 65 | 72 7d 94 01 78 12 5c 07 |characte|r}..x.\.|
|00000780| 65 72 72 43 6f 64 65 0a | 5c 06 47 65 74 45 4f 46 |errCode.|\.GetEOF|
|00000790| 10 5c 06 72 65 66 4e 75 | 6d 12 5c 03 45 4f 46 16 |.\.refNu|m.\.EOF.|
|000007a0| 98 01 92 16 00 00 26 09 | 09 09 09 7b 61 73 73 69 |......&.|...{assi|
|000007b0| 67 6e 20 65 6e 64 20 6f | 66 20 66 69 6c 65 20 6c |gn end o|f file l|
|000007c0| 65 6e 67 74 68 20 74 6f | 20 45 4f 46 7d 08 78 0a |ength to| EOF}.x.|
|000007d0| 5c 09 52 65 61 64 63 6f | 75 6e 74 0a 5c 03 45 4f |\.Readco|unt.\.EO|
|000007e0| 46 08 98 01 92 16 00 00 | 27 09 09 09 09 09 09 7b |F.......|'......{|
|000007f0| 61 73 73 69 67 6e 20 66 | 69 6c 65 20 6c 65 6e 67 |assign f|ile leng|
|00000800| 74 68 20 74 6f 20 72 65 | 61 64 63 6f 75 6e 74 7d |th to re|adcount}|
|00000810| 78 10 5c 06 62 75 66 66 | 65 72 0a 5c 06 4e 65 77 |x.\.buff|er.\.New|
|00000820| 50 74 72 10 5c 09 52 65 | 61 64 63 6f 75 6e 74 16 |Ptr.\.Re|adcount.|
|00000830| 98 01 92 19 00 00 2c 20 | 20 20 09 09 09 09 7b 63 |......, |  ....{c|
|00000840| 72 65 61 74 65 20 62 75 | 66 66 65 72 20 70 74 72 |reate bu|ffer ptr|
|00000850| 20 73 69 7a 65 20 6f 66 | 20 72 65 61 64 63 6f 75 | size of| readcou|
|00000860| 6e 74 7d 08 78 1a 5c 07 | 65 72 72 43 6f 64 65 0a |nt}.x.\.|errCode.|
|00000870| 5c 06 46 53 52 65 61 64 | 10 5c 06 72 65 66 4e 75 |\.FSRead|.\.refNu|
|00000880| 6d 12 5c 09 72 65 61 64 | 43 6f 75 6e 74 12 5c 06 |m.\.read|Count.\.|
|00000890| 42 75 66 66 65 72 16 08 | 98 01 92 0f 00 00 19 09 |Buffer..|........|
|000008a0| 09 7b 52 65 61 64 20 64 | 61 74 61 20 69 6e 74 6f |.{Read d|ata into|
|000008b0| 20 62 75 66 66 65 72 7d | 78 09 5c 05 61 62 79 74 | buffer}|x.\.abyt|
|000008c0| 65 0a 5c 06 62 75 66 66 | 65 72 98 01 92 13 00 00 |e.\.buff|er......|
|000008d0| 21 09 09 09 09 09 09 09 | 7b 61 73 73 69 67 6e 20 |!.......|{assign |
|000008e0| 62 75 66 66 65 72 20 69 | 6e 74 6f 20 61 62 79 74 |buffer i|nto abyt|
|000008f0| 65 7d 94 01 78 15 5c 05 | 61 62 79 74 65 0a 5c 07 |e}..x.\.|abyte.\.|
|00000900| 50 6f 69 6e 74 65 72 10 | 5c 03 6f 72 64 10 5c 05 |Pointer.|\.ord.\.|
|00000910| 61 62 79 74 65 16 3c 08 | 5a 03 00 01 16 08 98 01 |abyte.<.|Z.......|
|00000920| 92 16 00 00 27 09 09 09 | 09 7b 61 64 76 61 6e 63 |....'...|.{advanc|
|00000930| 65 20 70 61 73 74 20 69 | 6e 74 69 61 6c 20 74 61 |e past i|ntial ta|
|00000940| 62 20 63 68 61 72 61 63 | 74 65 72 7d 78 13 5c 07 |b charac|ter}x.\.|
|00000950| 65 6e 64 6c 6f 6f 70 0a | 5c 03 6f 72 64 10 5c 05 |endloop.|\.ord.\.|
|00000960| 61 62 79 74 65 16 3c 5c | 09 72 65 61 64 63 6f 75 |abyte.<\|.readcou|
|00000970| 6e 74 98 01 92 13 00 00 | 21 09 09 09 7b 61 73 73 |nt......|!...{ass|
|00000980| 69 67 6e 20 66 69 6e 61 | 6c 20 6c 6f 6f 70 63 6f |ign fina|l loopco|
|00000990| 75 6e 74 20 76 61 6c 75 | 65 7d 78 0c 5c 0a 4d 65 |unt valu|e}x.\.Me|
|000009a0| 6d 6f 72 79 4c 65 66 74 | 0a 5c 07 46 72 65 65 6d |moryLeft|.\.Freem|
|000009b0| 65 6d 98 01 92 19 00 00 | 2c 09 09 09 09 7b 63 68 |em......|,....{ch|
|000009c0| 65 63 6b 20 6d 65 6d 6f | 72 79 20 6c 65 66 74 2c |eck memo|ry left,|
|000009d0| 20 64 65 62 75 67 67 69 | 6e 67 20 70 75 72 70 6f | debuggi|ng purpo|
|000009e0| 73 65 27 73 7d 08 8a 0d | 5c 03 6f 72 64 10 5c 05 |se's}...|\.ord.\.|
|000009f0| 61 62 79 74 65 16 46 5c | 07 65 6e 64 6c 6f 6f 70 |abyte.F\|.endloop|
|00000a00| 92 16 00 00 26 09 09 09 | 7b 77 68 69 6c 65 20 61 |....&...|{while a|
|00000a10| 62 79 74 65 20 70 6f 73 | 69 74 69 6f 6e 20 6e 6f |byte pos|ition no|
|00000a20| 74 20 65 71 75 61 6c 20 | 74 6f 7d 08 92 15 00 01 |t equal |to}.....|
|00000a30| 24 09 09 09 09 09 09 09 | 09 7b 6c 61 73 74 20 63 |$.......|.{last c|
|00000a40| 68 61 72 61 63 74 65 72 | 20 69 6e 20 61 62 79 74 |haracter| in abyt|
|00000a50| 65 20 64 6f 7d 08 80 05 | 00 00 00 00 00 00 11 26 |e do}...|.......&|
|00000a60| 78 1a 5c 07 54 68 65 4e | 6f 64 65 0a 5c 07 4e 6f |x.\.TheN|ode.\.No|
|00000a70| 64 65 48 64 6c 10 5c 09 | 6e 65 77 48 61 6e 64 6c |deHdl.\.|newHandl|
|00000a80| 65 10 5c 06 73 69 7a 65 | 6f 66 10 5c 04 6e 6f 64 |e.\.size|of.\.nod|
|00000a90| 65 16 16 16 98 01 92 18 | 00 00 2a 20 20 7b 63 72 |e.......|..*  {cr|
|00000aa0| 65 61 74 65 20 6e 65 77 | 20 4e 6f 64 65 2c 20 74 |eate new| Node, t|
|00000ab0| 79 70 65 63 61 73 74 65 | 20 69 6e 74 6f 20 68 61 |ypecaste| into ha|
|00000ac0| 6e 64 6c 65 7d 08 78 0c | 5c 0a 4d 65 6d 6f 72 79 |ndle}.x.|\.Memory|
|00000ad0| 4c 65 66 74 0a 5c 07 46 | 72 65 65 6d 65 6d 98 01 |Left.\.F|reemem..|
|00000ae0| 92 19 00 00 2c 09 09 09 | 09 7b 63 68 65 63 6b 20 |....,...|.{check |
|00000af0| 6d 65 6d 6f 72 79 20 6c | 65 66 74 2c 20 64 65 62 |memory l|eft, deb|
|00000b00| 75 67 67 69 6e 67 20 70 | 75 72 70 6f 73 65 27 73 |ugging p|urpose's|
|00000b10| 7d 08 94 01 78 0e 5c 07 | 54 68 65 4e 6f 64 65 54 |}...x.\.|TheNodeT|
|00000b20| 54 52 5c 08 53 74 72 67 | 44 61 74 61 0a 5a 05 00 |TR\.Strg|Data.Z..|
|00000b30| 98 01 92 14 00 00 22 09 | 09 09 7b 63 6c 65 61 72 |......".|..{clear|
|00000b40| 20 76 61 72 69 61 62 6c | 65 73 20 66 6f 72 20 74 | variabl|es for t|
|00000b50| 68 69 73 20 6e 6f 64 65 | 7d 08 78 10 5c 07 54 68 |his node|}.x.\.Th|
|00000b60| 65 4e 6f 64 65 54 54 52 | 5c 0b 4c 6f 6e 74 49 6e |eNodeTTR|\.LontIn|
|00000b70| 74 44 61 74 61 0a 5a 03 | 00 00 98 01 78 08 5c 07 |tData.Z.|....x.\.|
|00000b80| 52 65 73 75 6c 74 31 0a | 5a 03 00 00 98 01 78 08 |Result1.|Z.....x.|
|00000b90| 5c 08 74 65 6d 70 53 74 | 72 31 0a 5a 05 00 98 01 |\.tempSt|r1.Z....|
|00000ba0| 78 08 5c 08 74 65 6d 70 | 53 74 72 32 0a 5a 05 00 |x.\.temp|Str2.Z..|
|00000bb0| 98 01 94 01 78 0c 5c 09 | 4d 65 6d 6f 72 79 45 72 |....x.\.|MemoryEr|
|00000bc0| 72 0a 5c 08 4d 65 6d 45 | 72 72 6f 72 98 01 86 1d |r.\.MemE|rror....|
|00000bd0| 10 5c 09 4d 65 6d 6f 72 | 79 45 72 72 44 5c 0a 4d |.\.Memor|yErrD\.M|
|00000be0| 65 6d 46 75 6c 6c 65 72 | 72 16 40 10 5c 09 4d 65 |emFuller|r.@.\.Me|
|00000bf0| 6d 6f 72 79 45 72 72 44 | 5c 0c 6e 69 6c 48 61 6e |moryErrD|\.nilHan|
|00000c00| 64 6c 65 45 72 72 16 08 | 92 0e 00 00 16 20 7b 63 |dleErr..|..... {c|
|00000c10| 6f 75 6c 64 20 6e 6f 74 | 20 61 6c 6c 6f 63 61 74 |ould not| allocat|
|00000c20| 65 3f 7d 08 80 05 00 00 | 00 00 00 00 0c 50 78 0d |e?}.....|.....Px.|
|00000c30| 5c 0e 4d 65 6d 68 61 64 | 50 72 6f 62 6c 65 6d 73 |\.Memhad|Problems|
|00000c40| 0a 5c 04 54 52 55 45 08 | 98 01 92 0e 00 00 17 09 |.\.TRUE.|........|
|00000c50| 09 09 09 09 09 20 20 7b | 66 6f 72 20 64 65 62 75 |.....  {|for debu|
|00000c60| 67 67 69 6e 67 7d 9a 01 | 98 01 94 01 8a 0f 5c 03 |gging}..|......\.|
|00000c70| 63 68 72 10 5c 05 41 62 | 79 74 65 54 16 46 5c 03 |chr.\.Ab|yteT.F\.|
|00000c80| 43 68 72 10 5a 03 00 09 | 16 08 92 14 00 00 23 09 |Chr.Z...|......#.|
|00000c90| 09 09 7b 67 65 74 20 53 | 74 72 67 44 61 74 61 2c |..{get S|trgData,|
|00000ca0| 20 77 68 69 6c 65 20 6e | 6f 74 20 74 61 62 20 64 | while n|ot tab d|
|00000cb0| 6f 7d 80 05 00 00 00 00 | 00 00 0d 8e 78 0e 5c 08 |o}......|....x.\.|
|00000cc0| 74 65 6d 70 73 74 72 31 | 0a 5c 03 63 68 72 10 5c |tempstr1|.\.chr.\|
|00000cd0| 05 61 62 79 74 65 54 16 | 98 01 92 13 00 00 21 09 |.abyteT.|......!.|
|00000ce0| 09 09 7b 67 65 74 20 63 | 68 61 72 61 63 74 65 72 |..{get c|haracter|
|00000cf0| 20 66 72 6f 6d 20 61 62 | 79 74 65 20 70 74 72 7d | from ab|yte ptr}|
|00000d00| 78 16 5c 08 74 65 6d 70 | 53 74 72 32 0a 5c 06 63 |x.\.temp|Str2.\.c|
|00000d10| 6f 6e 63 61 74 10 5c 08 | 74 65 6d 70 73 74 72 32 |oncat.\.|tempstr2|
|00000d20| 12 5c 08 74 65 6d 70 73 | 74 72 31 16 98 01 92 14 |.\.temps|tr1.....|
|00000d30| 00 00 22 09 7b 63 6f 6e | 63 61 74 20 63 68 61 72 |..".{con|cat char|
|00000d40| 61 63 74 65 72 73 20 77 | 68 69 6c 65 20 69 6e 20 |acters w|hile in |
|00000d50| 6c 6f 6f 70 7d 08 78 15 | 5c 05 61 62 79 74 65 0a |loop}.x.|\.abyte.|
|00000d60| 5c 07 50 6f 69 6e 74 65 | 72 10 5c 03 4f 72 64 10 |\.Pointe|r.\.Ord.|
|00000d70| 5c 05 61 62 79 74 65 16 | 3c 08 5a 03 00 01 16 08 |\.abyte.|<.Z.....|
|00000d80| 98 01 92 11 00 00 1d 09 | 09 7b 61 64 76 61 6e 63 |........|.{advanc|
|00000d90| 65 20 74 6f 20 6e 65 78 | 74 20 63 68 61 72 61 63 |e to nex|t charac|
|00000da0| 74 65 72 7d 9a 01 98 01 | 94 01 78 12 5c 07 54 68 |ter}....|..x.\.Th|
|00000db0| 65 4e 6f 64 65 54 54 52 | 5c 08 53 74 72 67 44 61 |eNodeTTR|\.StrgDa|
|00000dc0| 74 61 0a 5c 08 74 65 6d | 70 73 74 72 32 08 98 01 |ta.\.tem|pstr2...|
|00000dd0| 92 13 00 00 20 09 09 09 | 7b 61 73 73 69 67 6e 20 |.... ...|{assign |
|00000de0| 69 74 20 74 6f 20 64 61 | 74 61 20 73 74 72 75 63 |it to da|ta struc|
|00000df0| 74 75 72 65 7d 08 94 01 | 78 15 5c 05 61 62 79 74 |ture}...|x.\.abyt|
|00000e00| 65 0a 5c 07 50 6f 69 6e | 74 65 72 10 5c 03 6f 72 |e.\.Poin|ter.\.or|
|00000e10| 64 10 5c 05 61 62 79 74 | 65 16 3c 08 5a 03 00 01 |d.\.abyt|e.<.Z...|
|00000e20| 16 08 98 01 92 12 00 00 | 1e 09 09 09 7b 61 64 76 |........|....{adv|
|00000e30| 61 6e 63 65 20 74 6f 20 | 6e 65 78 74 20 63 68 61 |ance to |next cha|
|00000e40| 72 61 63 74 65 72 7d 08 | 78 08 5c 08 74 65 6d 70 |racter}.|x.\.temp|
|00000e50| 73 74 72 32 0a 5a 05 00 | 98 01 92 10 00 00 1b 09 |str2.Z..|........|
|00000e60| 09 09 09 09 7b 63 6c 65 | 61 72 20 74 65 6d 70 20 |....{cle|ar temp |
|00000e70| 76 61 72 69 61 62 6c 65 | 73 7d 78 08 5c 08 74 65 |variable|s}x.\.te|
|00000e80| 6d 70 73 74 72 31 0a 5a | 05 00 98 01 94 01 8a 0f |mpstr1.Z|........|
|00000e90| 5c 03 63 68 72 10 5c 05 | 41 62 79 74 65 54 16 46 |\.chr.\.|AbyteT.F|
|00000ea0| 5c 03 43 68 72 10 5a 03 | 00 0d 16 08 92 1b 00 00 |\.Chr.Z.|........|
|00000eb0| 31 09 09 7b 67 65 74 20 | 4c 6f 6e 67 49 6e 74 44 |1..{get |LongIntD|
|00000ec0| 61 74 61 2c 20 77 68 69 | 6c 65 20 6e 6f 74 20 63 |ata, whi|le not c|
|00000ed0| 61 72 72 69 61 67 65 20 | 72 65 74 75 72 6e 20 64 |arriage |return d|
|00000ee0| 6f 7d 80 05 00 00 00 00 | 00 00 0f be 78 0e 5c 08 |o}......|....x.\.|
|00000ef0| 74 65 6d 70 73 74 72 31 | 0a 5c 03 63 68 72 10 5c |tempstr1|.\.chr.\|
|00000f00| 05 61 62 79 74 65 54 16 | 98 01 92 13 00 00 21 09 |.abyteT.|......!.|
|00000f10| 09 09 7b 67 65 74 20 63 | 68 61 72 61 63 74 65 72 |..{get c|haracter|
|00000f20| 20 66 72 6f 6d 20 61 62 | 79 74 65 20 70 74 72 7d | from ab|yte ptr}|
|00000f30| 78 16 5c 08 74 65 6d 70 | 73 74 72 32 0a 5c 06 63 |x.\.temp|str2.\.c|
|00000f40| 6f 6e 63 61 74 10 5c 08 | 74 65 6d 70 73 74 72 32 |oncat.\.|tempstr2|
|00000f50| 12 5c 08 74 65 6d 70 73 | 74 72 31 16 98 01 92 14 |.\.temps|tr1.....|
|00000f60| 00 00 23 09 7b 20 63 6f | 6e 63 61 74 20 63 68 61 |..#.{ co|ncat cha|
|00000f70| 72 61 63 74 65 72 73 20 | 77 68 69 6c 65 20 69 6e |racters |while in|
|00000f80| 20 6c 6f 6f 70 7d 78 15 | 5c 05 61 62 79 74 65 0a | loop}x.|\.abyte.|
|00000f90| 5c 07 50 6f 69 6e 74 65 | 72 10 5c 03 4f 72 64 10 |\.Pointe|r.\.Ord.|
|00000fa0| 5c 05 61 62 79 74 65 16 | 3c 08 5a 03 00 01 16 08 |\.abyte.|<.Z.....|
|00000fb0| 98 01 92 11 00 00 1d 09 | 09 7b 61 64 76 61 6e 63 |........|.{advanc|
|00000fc0| 65 20 74 6f 20 6e 65 78 | 74 20 63 68 61 72 61 63 |e to nex|t charac|
|00000fd0| 74 65 72 7d 9a 01 98 01 | 94 01 78 13 5c 0b 53 74 |ter}....|..x.\.St|
|00000fe0| 72 69 6e 67 54 6f 4e 75 | 6d 10 5c 08 74 65 6d 70 |ringToNu|m.\.temp|
|00000ff0| 73 74 72 32 12 5c 07 52 | 65 73 75 6c 74 31 16 08 |str2.\.R|esult1..|
|00001000| 98 01 92 14 00 00 23 09 | 09 09 7b 63 6f 6e 76 65 |......#.|..{conve|
|00001010| 72 74 20 73 74 72 69 6e | 67 20 74 6f 20 6c 6f 6e |rt strin|g to lon|
|00001020| 67 20 69 6e 74 65 67 65 | 72 7d 78 13 5c 07 54 68 |g intege|r}x.\.Th|
|00001030| 65 4e 6f 64 65 54 54 52 | 5c 0b 4c 6f 6e 74 49 6e |eNodeTTR|\.LontIn|
|00001040| 74 44 61 74 61 0a 5c 07 | 52 65 73 75 6c 74 31 08 |tData.\.|Result1.|
|00001050| 98 01 92 13 00 00 20 09 | 09 09 7b 61 73 73 69 67 |...... .|..{assig|
|00001060| 6e 20 69 74 20 74 6f 20 | 64 61 74 61 20 73 74 72 |n it to |data str|
|00001070| 75 63 74 75 72 65 7d 08 | 94 01 94 01 78 13 5c 07 |ucture}.|....x.\.|
|00001080| 54 68 65 4e 6f 64 65 54 | 54 52 5c 04 4e 65 78 74 |TheNodeT|TR\.Next|
|00001090| 0a 5c 06 48 65 61 64 65 | 72 54 54 52 5c 04 4e 65 |.\.Heade|rTTR\.Ne|
|000010a0| 78 74 98 01 92 0d 00 00 | 15 09 09 7b 61 64 76 61 |xt......|...{adva|
|000010b0| 6e 63 65 20 6e 6f 64 65 | 20 6c 69 73 74 7d 78 0f |nce node| list}x.|
|000010c0| 5c 06 48 65 61 64 65 72 | 54 54 52 5c 04 4e 65 78 |\.Header|TTR\.Nex|
|000010d0| 74 0a 5c 07 54 68 65 4e | 6f 64 65 08 98 01 94 01 |t.\.TheN|ode.....|
|000010e0| 78 15 5c 05 61 62 79 74 | 65 0a 5c 07 50 6f 69 6e |x.\.abyt|e.\.Poin|
|000010f0| 74 65 72 10 5c 03 6f 72 | 64 10 5c 05 61 62 79 74 |ter.\.or|d.\.abyt|
|00001100| 65 16 3c 08 5a 03 00 02 | 16 08 98 01 92 18 00 00 |e.<.Z...|........|
|00001110| 2b 09 09 7b 61 64 76 61 | 6e 63 65 20 6e 65 78 74 |+..{adva|nce next|
|00001120| 20 76 61 6c 69 64 65 20 | 63 68 61 72 61 63 74 65 | valide |characte|
|00001130| 72 2c 20 73 6b 69 70 20 | 74 61 62 7d 9b 01 98 01 |r, skip |tab}....|
|00001140| 94 01 78 10 5c 07 45 72 | 72 43 6f 64 65 0a 5c 07 |..x.\.Er|rCode.\.|
|00001150| 46 53 43 6c 6f 73 65 10 | 5c 06 72 65 66 4e 75 6d |FSClose.|\.refNum|
|00001160| 16 08 98 01 92 0d 00 00 | 14 09 09 09 7b 63 6c 6f |........|....{clo|
|00001170| 73 65 20 64 61 74 61 20 | 66 69 6c 65 7d 08 78 10 |se data |file}.x.|
|00001180| 5c 07 65 72 72 43 6f 64 | 65 0a 5c 08 46 6c 75 73 |\.errCod|e.\.Flus|
|00001190| 68 56 6f 6c 10 58 12 08 | 5a 03 00 00 16 08 98 01 |hVol.X..|Z.......|
|000011a0| 78 0c 5c 09 44 69 73 70 | 6f 73 50 74 72 10 5c 06 |x.\.Disp|osPtr.\.|
|000011b0| 62 75 66 66 65 72 16 08 | 98 01 92 10 00 00 1b 09 |buffer..|........|
|000011c0| 09 09 09 7b 64 69 73 70 | 6f 73 65 20 6f 66 20 62 |...{disp|ose of b|
|000011d0| 75 66 66 65 72 20 70 74 | 72 7d 94 01 9a 01 98 01 |uffer pt|r}......|
|000011e0| 92 0a 00 00 0e 09 7b 63 | 72 65 61 74 65 4e 6f 64 |......{c|reateNod|
|000011f0| 65 73 7d 08 94 01 94 01 | 92 14 00 01 23 7b 2d 2d |es}.....|....#{--|
|00001200| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001210| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 7d |--------|-------}|
|00001220| 94 01 80 05 00 00 00 00 | 00 00 12 4e 92 0b 00 00 |........|...N....|
|00001230| 10 09 09 7b 6d 61 69 6e | 20 70 72 6f 67 72 61 6d |...{main| program|
|00001240| 7d 08 7e 08 0c 63 72 65 | 61 74 65 48 65 61 64 65 |}.~..cre|ateHeade|
|00001250| 72 08 98 01 7e 07 0b 43 | 72 65 61 74 65 4e 6f 64 |r...~..C|reateNod|
|00001260| 65 73 98 01 9a 01 00 01 | 02 01                   |es......|..      |
+--------+-------------------------+-------------------------+--------+--------+